Notes/Domino 6 and 7 Forum

     Dim stream As NotesStream

     Set stream = session.CreateStream

     stream.WriteText {<database

xmlns='http://www.lotus.com/dxl'

version='6'

templatename='MyTemplateName'

fromtemplate=''>

</database>}

     

     Set db = New NotesDatabase("MyServer", "MyTemplate.ntf")

     

     Dim mp As NotesDXLImporter

     Set mp = session.CreateDXLImporter(stream, db)

     With mp

          .ReplaceDbProperties = True

          .Process

     End With